<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span class="hs-pragma">{-# LANGUAGE BangPatterns     #-}</span><span>
</span><span id="line-2"></span><span class="hs-pragma">{-# LANGUAGE CPP              #-}</span><span>
</span><span id="line-3"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
</span><span id="line-4"></span><span class="hs-pragma">{-# LANGUAGE RankNTypes       #-}</span><span>
</span><span id="line-5"></span><span class="hs-comment">-- | A parse result type for parsers from AST to Haskell types.</span><span>
</span><span id="line-6"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">Distribution.Fields.ParseResult</span><span> </span><span class="hs-special">(</span><span>
</span><span id="line-7"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier">ParseResult</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-8"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#runParseResult"><span class="hs-identifier">runParseResult</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-9"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#recoverWith"><span class="hs-identifier">recoverWith</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-10"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseWarning"><span class="hs-identifier">parseWarning</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-11"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseWarnings"><span class="hs-identifier">parseWarnings</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-12"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFailure"><span class="hs-identifier">parseFailure</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-13"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFatalFailure"><span class="hs-identifier">parseFatalFailure</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-14"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFatalFailure%27"><span class="hs-identifier">parseFatalFailure'</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-15"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#getCabalSpecVersion"><span class="hs-identifier">getCabalSpecVersion</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-16"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#setCabalSpecVersion"><span class="hs-identifier">setCabalSpecVersion</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-17"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#readAndParseFile"><span class="hs-identifier">readAndParseFile</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-18"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseString"><span class="hs-identifier">parseString</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-19"></span><span>    </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#withoutWarnings"><span class="hs-identifier">withoutWarnings</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-20"></span><span>    </span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-21"></span><span>
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="hs-keyword">qualified</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Char8.html#"><span class="hs-identifier">Data.ByteString.Char8</span></a></span><span>        </span><span class="hs-keyword">as</span><span> </span><span class="annot"><span class="hs-identifier">BS</span></span><span>
</span><span id="line-23"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Compat.Prelude.html"><span class="hs-identifier">Distribution.Compat.Prelude</span></a></span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Parsec.Error.html"><span class="hs-identifier">Distribution.Parsec.Error</span></a></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier">PError</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Parsec.Error.html#showPError"><span class="hs-identifier">showPError</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-25"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Parsec.Position.html"><span class="hs-identifier">Distribution.Parsec.Position</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Parsec.Position.html#Position"><span class="hs-identifier">Position</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Parsec.Position.html#zeroPos"><span class="hs-identifier">zeroPos</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-26"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Parsec.Warning.html"><span class="hs-identifier">Distribution.Parsec.Warning</span></a></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarnType"><span class="hs-identifier">PWarnType</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarning"><span class="hs-identifier">PWarning</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Parsec.Warning.html#showPWarning"><span class="hs-identifier">showPWarning</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-27"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Simple.Utils.html"><span class="hs-identifier">Distribution.Simple.Utils</span></a></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier">die'</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier">warn</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-28"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Verbosity.html"><span class="hs-identifier">Distribution.Verbosity</span></a></span><span>       </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier">Verbosity</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-29"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="Distribution.Version.html"><span class="hs-identifier">Distribution.Version</span></a></span><span>         </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier">Version</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="../../base/src/Prelude.html#"><span class="hs-identifier">Prelude</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-31"></span><span class="hs-keyword">import</span><span>           </span><span class="annot"><a href="../../directory/src/System.Directory.html#"><span class="hs-identifier">System.Directory</span></a></span><span>             </span><span class="hs-special">(</span><span class="annot"><a href="../../directory/src/System.Directory.html#doesFileExist"><span class="hs-identifier">doesFileExist</span></a></span><span class="hs-special">)</span><span class="hs-cpp">

#if MIN_VERSION_base(4,10,0)
</span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Control.Applicative.html#"><span class="hs-identifier">Control.Applicative</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Base.html#Applicative"><span class="hs-identifier">Applicative</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-cpp">
#endif
</span><span>
</span><span id="line-37"></span><span class="hs-comment">-- | A monad with failure and accumulating errors and warnings.</span><span>
</span><span id="line-38"></span><span class="hs-keyword">newtype</span><span> </span><span id="ParseResult"><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-var">ParseResult</span></a></span></span><span> </span><span id="local-6989586621679696528"><span class="annot"><a href="#local-6989586621679696528"><span class="hs-identifier hs-type">a</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="PR"><span class="annot"><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span></span><span>
</span><span id="line-39"></span><span>    </span><span class="hs-special">{</span><span> </span><span id="unPR"><span class="annot"><span class="annottext">forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span></span><span>
</span><span id="line-40"></span><span>        </span><span class="hs-glyph">::</span><span> </span><span class="hs-keyword">forall</span><span> </span><span id="local-6989586621679696526"><span class="annot"><a href="#local-6989586621679696526"><span class="hs-identifier hs-type">r</span></a></span></span><span class="hs-operator">.</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span>
</span><span id="line-41"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679696526"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">-- failure, but we were able to recover a new-style spec-version declaration</span><span>
</span><span id="line-42"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679696528"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679696526"><span class="hs-identifier hs-type">r</span></a></span><span class="hs-special">)</span><span>             </span><span class="hs-comment">-- success</span><span>
</span><span id="line-43"></span><span>        </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679696526"><span class="hs-identifier hs-type">r</span></a></span><span>
</span><span id="line-44"></span><span>    </span><span class="hs-special">}</span><span>
</span><span id="line-45"></span><span>
</span><span id="line-46"></span><span class="hs-comment">-- Note: we have version here, as we could get any version.</span><span>
</span><span id="line-47"></span><span class="hs-keyword">data</span><span> </span><span id="PRState"><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="PRState"><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span></span><span> </span><span class="hs-glyph">!</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarning"><span class="hs-identifier hs-type">PWarning</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-type">PError</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-48"></span><span>
</span><span id="line-49"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#emptyPRState"><span class="hs-identifier hs-type">emptyPRState</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span>
</span><span id="line-50"></span><span id="emptyPRState"><span class="annot"><span class="annottext">emptyPRState :: PRState
</span><a href="Distribution.Fields.ParseResult.html#emptyPRState"><span class="hs-identifier hs-var hs-var">emptyPRState</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">Maybe Version
forall a. Maybe a
</span><a href="../../base/src/GHC.Maybe.html#Nothing"><span class="hs-identifier hs-var">Nothing</span></a></span><span>
</span><span id="line-51"></span><span>
</span><span id="line-52"></span><span class="hs-comment">-- | Forget 'ParseResult's warnings.</span><span>
</span><span id="line-53"></span><span class="hs-comment">--</span><span>
</span><span id="line-54"></span><span class="hs-comment">-- @since 3.4.0.0</span><span>
</span><span id="line-55"></span><span id="local-6989586621679696519"><span class="annot"><a href="Distribution.Fields.ParseResult.html#withoutWarnings"><span class="hs-identifier hs-type">withoutWarnings</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696519"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696519"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-56"></span><span id="withoutWarnings"><span class="annot"><span class="annottext">withoutWarnings :: forall a. ParseResult a -&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#withoutWarnings"><span class="hs-identifier hs-var hs-var">withoutWarnings</span></a></span></span><span> </span><span id="local-6989586621679696402"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696402"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
 -&gt; ParseResult a)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679696401"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696401"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679696400"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696400"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696399"><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696399"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-57"></span><span>    </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696402"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696401"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696400"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696398"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696398"><span class="hs-identifier hs-var">s1</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696399"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696398"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; PRState -&gt; PRState
</span><a href="#local-6989586621679696397"><span class="hs-operator hs-var">`withWarningsOf`</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696401"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-58"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-59"></span><span>    </span><span id="local-6989586621679696397"><span class="annot"><span class="annottext">withWarningsOf :: PRState -&gt; PRState -&gt; PRState
</span><a href="#local-6989586621679696397"><span class="hs-identifier hs-var hs-var">withWarningsOf</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679696396"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696396"><span class="hs-identifier hs-var">e</span></a></span></span><span> </span><span id="local-6989586621679696395"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696395"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696394"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696394"><span class="hs-identifier hs-var">w</span></a></span></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696394"><span class="hs-identifier hs-var">w</span></a></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696396"><span class="hs-identifier hs-var">e</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696395"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-60"></span><span>
</span><span id="line-61"></span><span class="hs-comment">-- | Destruct a 'ParseResult' into the emitted warnings and either</span><span>
</span><span id="line-62"></span><span class="hs-comment">-- a successful value or</span><span>
</span><span id="line-63"></span><span class="hs-comment">-- list of errors and possibly recovered a spec-version declaration.</span><span>
</span><span id="line-64"></span><span id="local-6989586621679696513"><span class="annot"><a href="Distribution.Fields.ParseResult.html#runParseResult"><span class="hs-identifier hs-type">runParseResult</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696513"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-special">(</span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarning"><span class="hs-identifier hs-type">PWarning</span></a></span><span class="hs-special">]</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/Data.Either.html#Either"><span class="hs-identifier hs-type">Either</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#NonEmpty"><span class="hs-identifier hs-type">NonEmpty</span></a></span><span> </span><span class="annot"><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-type">PError</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="#local-6989586621679696513"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-65"></span><span id="runParseResult"><span class="annot"><span class="annottext">runParseResult :: forall a.
ParseResult a
-&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) a)
</span><a href="Distribution.Fields.ParseResult.html#runParseResult"><span class="hs-identifier hs-var hs-var">runParseResult</span></a></span></span><span> </span><span id="local-6989586621679696393"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696393"><span class="hs-identifier hs-var">pr</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696393"><span class="hs-identifier hs-var">pr</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="Distribution.Fields.ParseResult.html#emptyPRState"><span class="hs-identifier hs-var">emptyPRState</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) a)
forall {b}.
PRState -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) b)
</span><a href="#local-6989586621679696392"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
-&gt; a -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) a)
forall {b}.
PRState
-&gt; b -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) b)
</span><a href="#local-6989586621679696391"><span class="hs-identifier hs-var">success</span></a></span><span>
</span><span id="line-66"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-67"></span><span>    </span><span id="local-6989586621679696392"><span class="annot"><span class="annottext">failure :: PRState -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) b)
</span><a href="#local-6989586621679696392"><span class="hs-identifier hs-var hs-var">failure</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696390"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696390"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>         </span><span id="local-6989586621679696389"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696389"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696390"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Maybe Version, NonEmpty PError)
-&gt; Either (Maybe Version, NonEmpty PError) b
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696389"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">Position -&gt; String -&gt; PError
</span><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-var">PError</span></a></span><span> </span><span class="annot"><span class="annottext">Position
</span><a href="Distribution.Parsec.Position.html#zeroPos"><span class="hs-identifier hs-var">zeroPos</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;panic&quot;</span></span><span> </span><span class="annot"><span class="annottext">PError -&gt; [PError] -&gt; NonEmpty PError
forall a. a -&gt; [a] -&gt; NonEmpty a
</span><a href="../../base/src/GHC.Base.html#%3A%7C"><span class="hs-operator hs-var">:|</span></a></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-68"></span><span>    </span><span class="annot"><a href="#local-6989586621679696392"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696386"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696386"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679696385"><span class="annot"><span class="annottext">PError
</span><a href="#local-6989586621679696385"><span class="hs-identifier hs-var">err</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679696384"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696384"><span class="hs-identifier hs-var">errs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696383"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696383"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696386"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Maybe Version, NonEmpty PError)
-&gt; Either (Maybe Version, NonEmpty PError) b
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696383"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PError
</span><a href="#local-6989586621679696385"><span class="hs-identifier hs-var">err</span></a></span><span> </span><span class="annot"><span class="annottext">PError -&gt; [PError] -&gt; NonEmpty PError
forall a. a -&gt; [a] -&gt; NonEmpty a
</span><a href="../../base/src/GHC.Base.html#%3A%7C"><span class="hs-operator hs-var">:|</span></a></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696384"><span class="hs-identifier hs-var">errs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-69"></span><span>    </span><span id="local-6989586621679696391"><span class="annot"><span class="annottext">success :: PRState
-&gt; b -&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) b)
</span><a href="#local-6989586621679696391"><span class="hs-identifier hs-var hs-var">success</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696382"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696382"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span>         </span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>   </span><span id="local-6989586621679696381"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679696381"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696382"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">b -&gt; Either (Maybe Version, NonEmpty PError) b
forall a b. b -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-var">Right</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679696381"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-70"></span><span>    </span><span class="hs-comment">-- If there are any errors, don't return the result</span><span>
</span><span id="line-71"></span><span>    </span><span class="annot"><a href="#local-6989586621679696391"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696380"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696380"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span class="hs-special">(</span><span id="local-6989586621679696379"><span class="annot"><span class="annottext">PError
</span><a href="#local-6989586621679696379"><span class="hs-identifier hs-var">err</span></a></span></span><span class="annot"><span class="hs-glyph hs-type">:</span></span><span id="local-6989586621679696378"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696378"><span class="hs-identifier hs-var">errs</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696377"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696377"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">b
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696380"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">(Maybe Version, NonEmpty PError)
-&gt; Either (Maybe Version, NonEmpty PError) b
forall a b. a -&gt; Either a b
</span><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-var">Left</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696377"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">PError
</span><a href="#local-6989586621679696379"><span class="hs-identifier hs-var">err</span></a></span><span> </span><span class="annot"><span class="annottext">PError -&gt; [PError] -&gt; NonEmpty PError
forall a. a -&gt; [a] -&gt; NonEmpty a
</span><a href="../../base/src/GHC.Base.html#%3A%7C"><span class="hs-operator hs-var">:|</span></a></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696378"><span class="hs-identifier hs-var">errs</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-72"></span><span>
</span><span id="line-73"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621679696374"><span class="annot"><a href="../../base/src/GHC.Base.html#Functor"><span class="hs-identifier hs-type">Functor</span></a></span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-74"></span><span>    </span><span id="local-6989586621679696372"><span class="annot"><span class="annottext">fmap :: forall a b. (a -&gt; b) -&gt; ParseResult a -&gt; ParseResult b
</span><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-identifier hs-var hs-var hs-var hs-var">fmap</span></a></span></span><span> </span><span id="local-6989586621679696371"><span class="annot"><span class="annottext">a -&gt; b
</span><a href="#local-6989586621679696371"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-type">PR</span></a></span><span> </span><span id="local-6989586621679696370"><span class="annot"><span class="annottext">forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="#local-6989586621679696370"><span class="hs-identifier hs-var">pr</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
 -&gt; ParseResult b)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696369"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696369"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679696368"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696368"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696367"><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696367"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-75"></span><span>        </span><span class="annot"><span class="annottext">PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="#local-6989586621679696370"><span class="hs-identifier hs-var">pr</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696369"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696368"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696366"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696366"><span class="hs-identifier hs-var">s'</span></a></span></span><span> </span><span id="local-6989586621679696365"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696365"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-76"></span><span>        </span><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696367"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696366"><span class="hs-identifier hs-var">s'</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; b
</span><a href="#local-6989586621679696371"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696365"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-77"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#fmap"><span class="hs-pragma hs-type">fmap</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-78"></span><span>
</span><span id="line-79"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#Applicative"><span class="hs-identifier hs-type">Applicative</span></a></span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-80"></span><span>    </span><span id="local-6989586621679696355"><span class="annot"><span class="annottext">pure :: forall a. a -&gt; ParseResult a
</span><a href="../../base/src/GHC.Base.html#pure"><span class="hs-identifier hs-var hs-var hs-var hs-var">pure</span></a></span></span><span> </span><span id="local-6989586621679696354"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696354"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
 -&gt; ParseResult a)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696353"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696353"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679696352"><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696352"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696352"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696353"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696354"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-81"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#pure"><span class="hs-pragma hs-type">pure</span></a></span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-82"></span><span>
</span><span id="line-83"></span><span>    </span><span id="local-6989586621679696351"><span class="annot"><span class="annottext">ParseResult (a -&gt; b)
</span><a href="#local-6989586621679696351"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679696350"><span class="annot"><span class="annottext">&lt;*&gt; :: forall a b. ParseResult (a -&gt; b) -&gt; ParseResult a -&gt; ParseResult b
</span><a href="../../base/src/GHC.Base.html#%3C%2A%3E"><span class="hs-operator hs-var hs-var hs-var hs-var">&lt;*&gt;</span></a></span></span><span> </span><span id="local-6989586621679696349"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696349"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
 -&gt; ParseResult b)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696348"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696348"><span class="hs-identifier hs-var">s0</span></a></span></span><span> </span><span id="local-6989586621679696347"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696347"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696346"><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696346"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-84"></span><span>        </span><span class="annot"><span class="annottext">ParseResult (a -&gt; b)
-&gt; forall r.
   PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; (a -&gt; b) -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult (a -&gt; b)
</span><a href="#local-6989586621679696351"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696348"><span class="hs-identifier hs-var">s0</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696347"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; (a -&gt; b) -&gt; r) -&gt; r)
-&gt; (PRState -&gt; (a -&gt; b) -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696345"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696345"><span class="hs-identifier hs-var">s1</span></a></span></span><span> </span><span id="local-6989586621679696344"><span class="annot"><span class="annottext">a -&gt; b
</span><a href="#local-6989586621679696344"><span class="hs-identifier hs-var">f'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-85"></span><span>        </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696349"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696345"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696347"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696343"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696343"><span class="hs-identifier hs-var">s2</span></a></span></span><span> </span><span id="local-6989586621679696342"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696342"><span class="hs-identifier hs-var">x'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-86"></span><span>        </span><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696346"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696343"><span class="hs-identifier hs-var">s2</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; b
</span><a href="#local-6989586621679696344"><span class="hs-identifier hs-var">f'</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696342"><span class="hs-identifier hs-var">x'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-87"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="hs-pragma">(</span><span class="hs-pragma">&lt;*&gt;</span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-88"></span><span>
</span><span id="line-89"></span><span>    </span><span id="local-6989586621679696341"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696341"><span class="hs-identifier hs-var">x</span></a></span></span><span>  </span><span id="local-6989586621679696340"><span class="annot"><span class="annottext">*&gt; :: forall a b. ParseResult a -&gt; ParseResult b -&gt; ParseResult b
</span><a href="../../base/src/GHC.Base.html#%2A%3E"><span class="hs-operator hs-var hs-var hs-var hs-var">*&gt;</span></a></span></span><span> </span><span id="local-6989586621679696339"><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696339"><span class="hs-identifier hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
 -&gt; ParseResult b)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696338"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696338"><span class="hs-identifier hs-var">s0</span></a></span></span><span> </span><span id="local-6989586621679696337"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696337"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696336"><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696336"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-90"></span><span>        </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696341"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696338"><span class="hs-identifier hs-var">s0</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696337"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696335"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696335"><span class="hs-identifier hs-var">s1</span></a></span></span><span> </span><span class="annot"><span class="annottext">a
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-91"></span><span>        </span><span class="annot"><span class="annottext">ParseResult b
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696339"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696335"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696337"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696336"><span class="hs-identifier hs-var">success</span></a></span><span>
</span><span id="line-92"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="hs-pragma">(</span><span class="hs-pragma">*&gt;</span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-93"></span><span>
</span><span id="line-94"></span><span>    </span><span id="local-6989586621679696334"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696334"><span class="hs-identifier hs-var">x</span></a></span></span><span>  </span><span id="local-6989586621679696333"><span class="annot"><span class="annottext">&lt;* :: forall a b. ParseResult a -&gt; ParseResult b -&gt; ParseResult a
</span><a href="../../base/src/GHC.Base.html#%3C%2A"><span class="hs-operator hs-var hs-var hs-var hs-var">&lt;*</span></a></span></span><span> </span><span id="local-6989586621679696331"><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696331"><span class="hs-identifier hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
 -&gt; ParseResult a)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696330"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696330"><span class="hs-identifier hs-var">s0</span></a></span></span><span> </span><span id="local-6989586621679696329"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696329"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696328"><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696328"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-95"></span><span>        </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696334"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696330"><span class="hs-identifier hs-var">s0</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696329"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696327"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696327"><span class="hs-identifier hs-var">s1</span></a></span></span><span> </span><span id="local-6989586621679696326"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696326"><span class="hs-identifier hs-var">x'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-96"></span><span>        </span><span class="annot"><span class="annottext">ParseResult b
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696331"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696327"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696329"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; b -&gt; r) -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696325"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696325"><span class="hs-identifier hs-var">s2</span></a></span></span><span> </span><span class="annot"><span class="annottext">b
</span><span class="hs-identifier">_</span></span><span>  </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-97"></span><span>        </span><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696328"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696325"><span class="hs-identifier hs-var">s2</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696326"><span class="hs-identifier hs-var">x'</span></a></span><span>
</span><span id="line-98"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="hs-pragma">(</span><span class="hs-pragma">&lt;*</span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">#-}</span><span class="hs-cpp">

#if MIN_VERSION_base(4,10,0)
</span><span>    </span><span id="local-6989586621679696324"><span class="annot"><span class="annottext">liftA2 :: forall a b c.
(a -&gt; b -&gt; c) -&gt; ParseResult a -&gt; ParseResult b -&gt; ParseResult c
</span><a href="../../base/src/GHC.Base.html#liftA2"><span class="hs-identifier hs-var hs-var hs-var hs-var">liftA2</span></a></span></span><span> </span><span id="local-6989586621679696322"><span class="annot"><span class="annottext">a -&gt; b -&gt; c
</span><a href="#local-6989586621679696322"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span id="local-6989586621679696321"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696321"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621679696320"><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696320"><span class="hs-identifier hs-var">y</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; c -&gt; r) -&gt; r)
-&gt; ParseResult c
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; c -&gt; r) -&gt; r)
 -&gt; ParseResult c)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; c -&gt; r) -&gt; r)
-&gt; ParseResult c
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696319"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696319"><span class="hs-identifier hs-var">s0</span></a></span></span><span> </span><span id="local-6989586621679696318"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696318"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696317"><span class="annot"><span class="annottext">PRState -&gt; c -&gt; r
</span><a href="#local-6989586621679696317"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-102"></span><span>        </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696321"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696319"><span class="hs-identifier hs-var">s0</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696318"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696316"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696316"><span class="hs-identifier hs-var">s1</span></a></span></span><span> </span><span id="local-6989586621679696315"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696315"><span class="hs-identifier hs-var">x'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-103"></span><span>        </span><span class="annot"><span class="annottext">ParseResult b
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult b
</span><a href="#local-6989586621679696320"><span class="hs-identifier hs-var">y</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696316"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696318"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; b -&gt; r) -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696314"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696314"><span class="hs-identifier hs-var">s2</span></a></span></span><span> </span><span id="local-6989586621679696313"><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679696313"><span class="hs-identifier hs-var">y'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-104"></span><span>        </span><span class="annot"><span class="annottext">PRState -&gt; c -&gt; r
</span><a href="#local-6989586621679696317"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696314"><span class="hs-identifier hs-var">s2</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; b -&gt; c
</span><a href="#local-6989586621679696322"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696315"><span class="hs-identifier hs-var">x'</span></a></span><span> </span><span class="annot"><span class="annottext">b
</span><a href="#local-6989586621679696313"><span class="hs-identifier hs-var">y'</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-105"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#liftA2"><span class="hs-pragma hs-type">liftA2</span></a></span><span> </span><span class="hs-pragma">#-}</span><span class="hs-cpp">
#endif
</span><span>
</span><span id="line-108"></span><span class="hs-keyword">instance</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#Monad"><span class="hs-identifier hs-type">Monad</span></a></span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-109"></span><span>    </span><span id="local-6989586621679696304"><span class="annot"><span class="annottext">return :: forall a. a -&gt; ParseResult a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var hs-var hs-var hs-var">return</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">a -&gt; ParseResult a
forall (f :: * -&gt; *) a. Applicative f =&gt; a -&gt; f a
</span><a href="../../base/src/GHC.Base.html#pure"><span class="hs-identifier hs-var">pure</span></a></span><span>
</span><span id="line-110"></span><span>    </span><span id="local-6989586621679696302"><span class="annot"><span class="annottext">&gt;&gt; :: forall a b. ParseResult a -&gt; ParseResult b -&gt; ParseResult b
</span><a href="../../base/src/GHC.Base.html#%3E%3E"><span class="hs-operator hs-var hs-var hs-var hs-var">(&gt;&gt;)</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ParseResult a -&gt; ParseResult b -&gt; ParseResult b
forall (f :: * -&gt; *) a b. Applicative f =&gt; f a -&gt; f b -&gt; f b
</span><a href="../../base/src/GHC.Base.html#%2A%3E"><span class="hs-operator hs-var">(*&gt;)</span></a></span><span>
</span><span id="line-111"></span><span>
</span><span id="line-112"></span><span>    </span><span id="local-6989586621679696301"><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696301"><span class="hs-identifier hs-var">m</span></a></span></span><span> </span><span id="local-6989586621679696300"><span class="annot"><span class="annottext">&gt;&gt;= :: forall a b. ParseResult a -&gt; (a -&gt; ParseResult b) -&gt; ParseResult b
</span><a href="../../base/src/GHC.Base.html#%3E%3E%3D"><span class="hs-operator hs-var hs-var hs-var hs-var">&gt;&gt;=</span></a></span></span><span> </span><span id="local-6989586621679696299"><span class="annot"><span class="annottext">a -&gt; ParseResult b
</span><a href="#local-6989586621679696299"><span class="hs-identifier hs-var">k</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
 -&gt; ParseResult b)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r)
-&gt; ParseResult b
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696298"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696298"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679696297"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696297"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696296"><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696296"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-113"></span><span>        </span><span class="annot"><span class="annottext">ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="annot"><span class="annottext">ParseResult a
</span><a href="#local-6989586621679696301"><span class="hs-identifier hs-var">m</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696298"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696297"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">((PRState -&gt; a -&gt; r) -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696295"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696295"><span class="hs-identifier hs-var">s'</span></a></span></span><span> </span><span id="local-6989586621679696294"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696294"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-114"></span><span>        </span><span class="annot"><span class="annottext">ParseResult b
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; b -&gt; r) -&gt; r
forall a.
ParseResult a
-&gt; forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="Distribution.Fields.ParseResult.html#unPR"><span class="hs-identifier hs-var hs-var">unPR</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">a -&gt; ParseResult b
</span><a href="#local-6989586621679696299"><span class="hs-identifier hs-var">k</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696294"><span class="hs-identifier hs-var">a</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696295"><span class="hs-identifier hs-var">s'</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696297"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">PRState -&gt; b -&gt; r
</span><a href="#local-6989586621679696296"><span class="hs-identifier hs-var">success</span></a></span><span>
</span><span id="line-115"></span><span>    </span><span class="hs-pragma">{-# INLINE</span><span> </span><span class="hs-pragma">(</span><span class="hs-pragma">&gt;&gt;=</span><span class="hs-pragma">)</span><span> </span><span class="hs-pragma">#-}</span><span>
</span><span id="line-116"></span><span>
</span><span id="line-117"></span><span class="hs-comment">-- | &quot;Recover&quot; the parse result, so we can proceed parsing.</span><span>
</span><span id="line-118"></span><span class="hs-comment">-- 'runParseResult' will still result in 'Nothing', if there are recorded errors.</span><span>
</span><span id="line-119"></span><span id="local-6989586621679696458"><span class="annot"><a href="Distribution.Fields.ParseResult.html#recoverWith"><span class="hs-identifier hs-type">recoverWith</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696458"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="#local-6989586621679696458"><span class="hs-identifier hs-type">a</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696458"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-120"></span><span id="recoverWith"><span class="annot"><span class="annottext">recoverWith :: forall a. ParseResult a -&gt; a -&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#recoverWith"><span class="hs-identifier hs-var hs-var">recoverWith</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-type">PR</span></a></span><span> </span><span id="local-6989586621679696293"><span class="annot"><span class="annottext">forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="#local-6989586621679696293"><span class="hs-identifier hs-var">pr</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696292"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696292"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
 -&gt; ParseResult a)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696291"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696291"><span class="hs-identifier hs-var">s</span></a></span></span><span> </span><span id="local-6989586621679696290"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696290"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696289"><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696289"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-121"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
</span><a href="#local-6989586621679696293"><span class="hs-identifier hs-var">pr</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696291"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-glyph">\</span><span> </span><span class="hs-glyph">!</span><span id="local-6989586621679696288"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696288"><span class="hs-identifier hs-var">s'</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696289"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696288"><span class="hs-identifier hs-var">s'</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696292"><span class="hs-identifier hs-var">x</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696289"><span class="hs-identifier hs-var">success</span></a></span><span>
</span><span id="line-122"></span><span>
</span><span id="line-123"></span><span class="hs-comment">-- | Set cabal spec version.</span><span>
</span><span id="line-124"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#setCabalSpecVersion"><span class="hs-identifier hs-type">setCabalSpecVersion</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-125"></span><span id="setCabalSpecVersion"><span class="annot"><span class="annottext">setCabalSpecVersion :: Maybe Version -&gt; ParseResult ()
</span><a href="Distribution.Fields.ParseResult.html#setCabalSpecVersion"><span class="hs-identifier hs-var hs-var">setCabalSpecVersion</span></a></span></span><span> </span><span id="local-6989586621679696287"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696287"><span class="hs-identifier hs-var">v</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
 -&gt; ParseResult ())
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696286"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696286"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span id="local-6989586621679696285"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696285"><span class="hs-identifier hs-var">errs</span></a></span></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696284"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696284"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696283"><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696283"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-126"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696283"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696286"><span class="hs-identifier hs-var">warns</span></a></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696285"><span class="hs-identifier hs-var">errs</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696287"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-127"></span><span>
</span><span id="line-128"></span><span class="hs-comment">-- | Get cabal spec version.</span><span>
</span><span id="line-129"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#getCabalSpecVersion"><span class="hs-identifier hs-type">getCabalSpecVersion</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../base/src/GHC.Maybe.html#Maybe"><span class="hs-identifier hs-type">Maybe</span></a></span><span> </span><span class="annot"><a href="Distribution.Types.Version.html#Version"><span class="hs-identifier hs-type">Version</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-130"></span><span id="getCabalSpecVersion"><span class="annot"><span class="annottext">getCabalSpecVersion :: ParseResult (Maybe Version)
</span><a href="Distribution.Fields.ParseResult.html#getCabalSpecVersion"><span class="hs-identifier hs-var hs-var">getCabalSpecVersion</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r.
 PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; Maybe Version -&gt; r) -&gt; r)
-&gt; ParseResult (Maybe Version)
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r.
  PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; Maybe Version -&gt; r) -&gt; r)
 -&gt; ParseResult (Maybe Version))
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; Maybe Version -&gt; r) -&gt; r)
-&gt; ParseResult (Maybe Version)
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span id="local-6989586621679696282"><span class="annot"><span class="annottext">s :: PRState
</span><a href="#local-6989586621679696282"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-glyph">@</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621679696281"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696281"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696280"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696280"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696279"><span class="annot"><span class="annottext">PRState -&gt; Maybe Version -&gt; r
</span><a href="#local-6989586621679696279"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-131"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; Maybe Version -&gt; r
</span><a href="#local-6989586621679696279"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696282"><span class="hs-identifier hs-var">s</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696281"><span class="hs-identifier hs-var">v</span></a></span><span>
</span><span id="line-132"></span><span>
</span><span id="line-133"></span><span class="hs-comment">-- | Add a warning. This doesn't fail the parsing process.</span><span>
</span><span id="line-134"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseWarning"><span class="hs-identifier hs-type">parseWarning</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Parsec.Position.html#Position"><span class="hs-identifier hs-type">Position</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarnType"><span class="hs-identifier hs-type">PWarnType</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-135"></span><span id="parseWarning"><span class="annot"><span class="annottext">parseWarning :: Position -&gt; PWarnType -&gt; String -&gt; ParseResult ()
</span><a href="Distribution.Fields.ParseResult.html#parseWarning"><span class="hs-identifier hs-var hs-var">parseWarning</span></a></span></span><span> </span><span id="local-6989586621679696278"><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696278"><span class="hs-identifier hs-var">pos</span></a></span></span><span> </span><span id="local-6989586621679696277"><span class="annot"><span class="annottext">PWarnType
</span><a href="#local-6989586621679696277"><span class="hs-identifier hs-var">t</span></a></span></span><span> </span><span id="local-6989586621679696276"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696276"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
 -&gt; ParseResult ())
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696275"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696275"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span id="local-6989586621679696274"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696274"><span class="hs-identifier hs-var">errs</span></a></span></span><span> </span><span id="local-6989586621679696273"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696273"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696272"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696272"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696271"><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696271"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-136"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696271"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">PWarnType -&gt; Position -&gt; String -&gt; PWarning
</span><a href="Distribution.Parsec.Warning.html#PWarning"><span class="hs-identifier hs-var">PWarning</span></a></span><span> </span><span class="annot"><span class="annottext">PWarnType
</span><a href="#local-6989586621679696277"><span class="hs-identifier hs-var">t</span></a></span><span> </span><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696278"><span class="hs-identifier hs-var">pos</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696276"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">PWarning -&gt; [PWarning] -&gt; [PWarning]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696275"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696274"><span class="hs-identifier hs-var">errs</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696273"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-137"></span><span>
</span><span id="line-138"></span><span class="hs-comment">-- | Add multiple warnings at once.</span><span>
</span><span id="line-139"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseWarnings"><span class="hs-identifier hs-type">parseWarnings</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">[</span><span class="annot"><a href="Distribution.Parsec.Warning.html#PWarning"><span class="hs-identifier hs-type">PWarning</span></a></span><span class="hs-special">]</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-140"></span><span id="parseWarnings"><span class="annot"><span class="annottext">parseWarnings :: [PWarning] -&gt; ParseResult ()
</span><a href="Distribution.Fields.ParseResult.html#parseWarnings"><span class="hs-identifier hs-var hs-var">parseWarnings</span></a></span></span><span> </span><span id="local-6989586621679696269"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696269"><span class="hs-identifier hs-var">newWarns</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
 -&gt; ParseResult ())
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696268"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696268"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span id="local-6989586621679696267"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696267"><span class="hs-identifier hs-var">errs</span></a></span></span><span> </span><span id="local-6989586621679696266"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696266"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696265"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696265"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696264"><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696264"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-141"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696264"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696269"><span class="hs-identifier hs-var">newWarns</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning] -&gt; [PWarning] -&gt; [PWarning]
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696268"><span class="hs-identifier hs-var">warns</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696267"><span class="hs-identifier hs-var">errs</span></a></span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696266"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-142"></span><span>
</span><span id="line-143"></span><span class="hs-comment">-- | Add an error, but not fail the parser yet.</span><span>
</span><span id="line-144"></span><span class="hs-comment">--</span><span>
</span><span id="line-145"></span><span class="hs-comment">-- For fatal failure use 'parseFatalFailure'</span><span>
</span><span id="line-146"></span><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFailure"><span class="hs-identifier hs-type">parseFailure</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Parsec.Position.html#Position"><span class="hs-identifier hs-type">Position</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-147"></span><span id="parseFailure"><span class="annot"><span class="annottext">parseFailure :: Position -&gt; String -&gt; ParseResult ()
</span><a href="Distribution.Fields.ParseResult.html#parseFailure"><span class="hs-identifier hs-var hs-var">parseFailure</span></a></span></span><span> </span><span id="local-6989586621679696263"><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696263"><span class="hs-identifier hs-var">pos</span></a></span></span><span> </span><span id="local-6989586621679696262"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696262"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
 -&gt; ParseResult ())
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; () -&gt; r) -&gt; r)
-&gt; ParseResult ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696261"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696261"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span id="local-6989586621679696260"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696260"><span class="hs-identifier hs-var">errs</span></a></span></span><span> </span><span id="local-6989586621679696259"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696259"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696258"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696258"><span class="hs-identifier hs-var">_failure</span></a></span></span><span> </span><span id="local-6989586621679696257"><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696257"><span class="hs-identifier hs-var">success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-148"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; () -&gt; r
</span><a href="#local-6989586621679696257"><span class="hs-identifier hs-var">success</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696261"><span class="hs-identifier hs-var">warns</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Position -&gt; String -&gt; PError
</span><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-var">PError</span></a></span><span> </span><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696263"><span class="hs-identifier hs-var">pos</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696262"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">PError -&gt; [PError] -&gt; [PError]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696260"><span class="hs-identifier hs-var">errs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696259"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="hs-special">)</span><span>
</span><span id="line-149"></span><span>
</span><span id="line-150"></span><span class="hs-comment">-- | Add an fatal error.</span><span>
</span><span id="line-151"></span><span id="local-6989586621679696448"><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFatalFailure"><span class="hs-identifier hs-type">parseFatalFailure</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Parsec.Position.html#Position"><span class="hs-identifier hs-type">Position</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696448"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-152"></span><span id="parseFatalFailure"><span class="annot"><span class="annottext">parseFatalFailure :: forall a. Position -&gt; String -&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#parseFatalFailure"><span class="hs-identifier hs-var hs-var">parseFatalFailure</span></a></span></span><span> </span><span id="local-6989586621679696256"><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696256"><span class="hs-identifier hs-var">pos</span></a></span></span><span> </span><span id="local-6989586621679696255"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696255"><span class="hs-identifier hs-var">msg</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">((forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
 -&gt; ParseResult a)
-&gt; (forall r.
    PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="hs-glyph">\</span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696254"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696254"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span id="local-6989586621679696253"><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696253"><span class="hs-identifier hs-var">errs</span></a></span></span><span> </span><span id="local-6989586621679696252"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696252"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696251"><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696251"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696250"><span class="annot"><span class="annottext">PRState -&gt; a -&gt; r
</span><a href="#local-6989586621679696250"><span class="hs-identifier hs-var">_success</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span>
</span><span id="line-153"></span><span>    </span><span class="annot"><span class="annottext">PRState -&gt; r
</span><a href="#local-6989586621679696251"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696254"><span class="hs-identifier hs-var">warns</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Position -&gt; String -&gt; PError
</span><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-var">PError</span></a></span><span> </span><span class="annot"><span class="annottext">Position
</span><a href="#local-6989586621679696256"><span class="hs-identifier hs-var">pos</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696255"><span class="hs-identifier hs-var">msg</span></a></span><span> </span><span class="annot"><span class="annottext">PError -&gt; [PError] -&gt; [PError]
forall a. a -&gt; [a] -&gt; [a]
</span><span class="hs-glyph hs-var">:</span></span><span> </span><span class="annot"><span class="annottext">[PError]
</span><a href="#local-6989586621679696253"><span class="hs-identifier hs-var">errs</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696252"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-154"></span><span>
</span><span id="line-155"></span><span class="hs-comment">-- | A 'mzero'.</span><span>
</span><span id="line-156"></span><span id="local-6989586621679696445"><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseFatalFailure%27"><span class="hs-identifier hs-type">parseFatalFailure'</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696445"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-157"></span><span id="parseFatalFailure%27"><span class="annot"><span class="annottext">parseFatalFailure' :: forall a. ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#parseFatalFailure%27"><span class="hs-identifier hs-var hs-var">parseFatalFailure'</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
forall a.
(forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r)
-&gt; ParseResult a
</span><a href="Distribution.Fields.ParseResult.html#PR"><span class="hs-identifier hs-var">PR</span></a></span><span> </span><span class="annot"><span class="annottext">forall r. PRState -&gt; (PRState -&gt; r) -&gt; (PRState -&gt; a -&gt; r) -&gt; r
forall {t} {p}. PRState -&gt; (PRState -&gt; t) -&gt; p -&gt; t
</span><a href="#local-6989586621679696249"><span class="hs-identifier hs-var">pr</span></a></span><span>
</span><span id="line-158"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-159"></span><span>    </span><span id="local-6989586621679696249"><span class="annot"><span class="annottext">pr :: PRState -&gt; (PRState -&gt; t) -&gt; p -&gt; t
</span><a href="#local-6989586621679696249"><span class="hs-identifier hs-var hs-var">pr</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-type">PRState</span></a></span><span> </span><span id="local-6989586621679696248"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696248"><span class="hs-identifier hs-var">warns</span></a></span></span><span> </span><span class="hs-special">[</span><span class="hs-special">]</span><span> </span><span id="local-6989586621679696247"><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696247"><span class="hs-identifier hs-var">v</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621679696246"><span class="annot"><span class="annottext">PRState -&gt; t
</span><a href="#local-6989586621679696246"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696245"><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679696245"><span class="hs-identifier hs-var">_success</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; t
</span><a href="#local-6989586621679696246"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">[PWarning] -&gt; [PError] -&gt; Maybe Version -&gt; PRState
</span><a href="Distribution.Fields.ParseResult.html#PRState"><span class="hs-identifier hs-var">PRState</span></a></span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696248"><span class="hs-identifier hs-var">warns</span></a></span><span> </span><span class="hs-special">[</span><span class="annot"><span class="annottext">PError
</span><a href="#local-6989586621679696244"><span class="hs-identifier hs-var">err</span></a></span><span class="hs-special">]</span><span> </span><span class="annot"><span class="annottext">Maybe Version
</span><a href="#local-6989586621679696247"><span class="hs-identifier hs-var">v</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-160"></span><span>    </span><span class="annot"><a href="#local-6989586621679696249"><span class="hs-identifier hs-var">pr</span></a></span><span> </span><span id="local-6989586621679696243"><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696243"><span class="hs-identifier hs-var">s</span></a></span></span><span>                    </span><span id="local-6989586621679696242"><span class="annot"><span class="annottext">PRState -&gt; t
</span><a href="#local-6989586621679696242"><span class="hs-identifier hs-var">failure</span></a></span></span><span> </span><span id="local-6989586621679696241"><span class="annot"><span class="annottext">p
</span><a href="#local-6989586621679696241"><span class="hs-identifier hs-var">_success</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PRState -&gt; t
</span><a href="#local-6989586621679696242"><span class="hs-identifier hs-var">failure</span></a></span><span> </span><span class="annot"><span class="annottext">PRState
</span><a href="#local-6989586621679696243"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-161"></span><span>
</span><span id="line-162"></span><span>    </span><span id="local-6989586621679696244"><span class="annot"><span class="annottext">err :: PError
</span><a href="#local-6989586621679696244"><span class="hs-identifier hs-var hs-var">err</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Position -&gt; String -&gt; PError
</span><a href="Distribution.Parsec.Error.html#PError"><span class="hs-identifier hs-var">PError</span></a></span><span> </span><span class="annot"><span class="annottext">Position
</span><a href="Distribution.Parsec.Position.html#zeroPos"><span class="hs-identifier hs-var">zeroPos</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Unknown fatal error&quot;</span></span><span>
</span><span id="line-163"></span><span>
</span><span id="line-164"></span><span class="hs-comment">-- | Helper combinator to do parsing plumbing for files.</span><span>
</span><span id="line-165"></span><span class="hs-comment">--</span><span>
</span><span id="line-166"></span><span class="hs-comment">-- Given a parser and a filename, return the parse of the file,</span><span>
</span><span id="line-167"></span><span class="hs-comment">-- after checking if the file exists.</span><span>
</span><span id="line-168"></span><span class="hs-comment">--</span><span>
</span><span id="line-169"></span><span class="hs-comment">-- Argument order is chosen to encourage partial application.</span><span>
</span><span id="line-170"></span><span id="local-6989586621679696440"><span class="annot"><a href="Distribution.Fields.ParseResult.html#readAndParseFile"><span class="hs-identifier hs-type">readAndParseFile</span></a></span><span>
</span><span id="line-171"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">BS.ByteString</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696440"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>  </span><span class="hs-comment">-- ^ File contents to final value parser</span><span>
</span><span id="line-172"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>                         </span><span class="hs-comment">-- ^ Verbosity level</span><span>
</span><span id="line-173"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.IO.html#FilePath"><span class="hs-identifier hs-type">FilePath</span></a></span><span>                          </span><span class="hs-comment">-- ^ File to read</span><span>
</span><span id="line-174"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679696440"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-175"></span><span id="readAndParseFile"><span class="annot"><span class="annottext">readAndParseFile :: forall a.
(ByteString -&gt; ParseResult a) -&gt; Verbosity -&gt; String -&gt; IO a
</span><a href="Distribution.Fields.ParseResult.html#readAndParseFile"><span class="hs-identifier hs-var hs-var">readAndParseFile</span></a></span></span><span> </span><span id="local-6989586621679696233"><span class="annot"><span class="annottext">ByteString -&gt; ParseResult a
</span><a href="#local-6989586621679696233"><span class="hs-identifier hs-var">parser</span></a></span></span><span> </span><span id="local-6989586621679696232"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696232"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679696231"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696231"><span class="hs-identifier hs-var">fpath</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-176"></span><span>    </span><span id="local-6989586621679696230"><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679696230"><span class="hs-identifier hs-var">exists</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; IO Bool
</span><a href="../../directory/src/System.Directory.html#doesFileExist"><span class="hs-identifier hs-var">doesFileExist</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696231"><span class="hs-identifier hs-var">fpath</span></a></span><span>
</span><span id="line-177"></span><span>    </span><span class="annot"><span class="annottext">Bool -&gt; IO () -&gt; IO ()
forall (f :: * -&gt; *). Applicative f =&gt; Bool -&gt; f () -&gt; f ()
</span><a href="../../base/src/Control.Monad.html#unless"><span class="hs-identifier hs-var">unless</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><a href="#local-6989586621679696230"><span class="hs-identifier hs-var">exists</span></a></span><span> </span><span class="annot"><span class="annottext">(IO () -&gt; IO ()) -&gt; IO () -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-178"></span><span>      </span><span class="annot"><span class="annottext">Verbosity -&gt; String -&gt; IO ()
forall a. Verbosity -&gt; String -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696232"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; IO ()) -&gt; String -&gt; IO ()
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span>
</span><span id="line-179"></span><span>        </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Error Parsing: file \&quot;&quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696231"><span class="hs-identifier hs-var">fpath</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\&quot; doesn't exist. Cannot continue.&quot;</span></span><span>
</span><span id="line-180"></span><span>    </span><span id="local-6989586621679696228"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679696228"><span class="hs-identifier hs-var">bs</span></a></span></span><span> </span><span class="hs-glyph">&lt;-</span><span> </span><span class="annot"><span class="annottext">String -&gt; IO ByteString
</span><a href="../../bytestring/src/Data.ByteString.html#readFile"><span class="hs-identifier hs-var">BS.readFile</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696231"><span class="hs-identifier hs-var">fpath</span></a></span><span>
</span><span id="line-181"></span><span>    </span><span class="annot"><span class="annottext">(ByteString -&gt; ParseResult a)
-&gt; Verbosity -&gt; String -&gt; ByteString -&gt; IO a
forall a.
(ByteString -&gt; ParseResult a)
-&gt; Verbosity -&gt; String -&gt; ByteString -&gt; IO a
</span><a href="Distribution.Fields.ParseResult.html#parseString"><span class="hs-identifier hs-var">parseString</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; ParseResult a
</span><a href="#local-6989586621679696233"><span class="hs-identifier hs-var">parser</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696232"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696231"><span class="hs-identifier hs-var">fpath</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679696228"><span class="hs-identifier hs-var">bs</span></a></span><span>
</span><span id="line-182"></span><span>
</span><span id="line-183"></span><span id="local-6989586621679696435"><span class="annot"><a href="Distribution.Fields.ParseResult.html#parseString"><span class="hs-identifier hs-type">parseString</span></a></span><span>
</span><span id="line-184"></span><span>    </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">BS.ByteString</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Fields.ParseResult.html#ParseResult"><span class="hs-identifier hs-type">ParseResult</span></a></span><span> </span><span class="annot"><a href="#local-6989586621679696435"><span class="hs-identifier hs-type">a</span></a></span><span class="hs-special">)</span><span>  </span><span class="hs-comment">-- ^ File contents to final value parser</span><span>
</span><span id="line-185"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="Distribution.Verbosity.html#Verbosity"><span class="hs-identifier hs-type">Verbosity</span></a></span><span>                         </span><span class="hs-comment">-- ^ Verbosity level</span><span>
</span><span id="line-186"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../base/src/GHC.Base.html#String"><span class="hs-identifier hs-type">String</span></a></span><span>                            </span><span class="hs-comment">-- ^ File name</span><span>
</span><span id="line-187"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">BS.ByteString</span></a></span><span>
</span><span id="line-188"></span><span>    </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">IO</span></span><span> </span><span class="annot"><a href="#local-6989586621679696435"><span class="hs-identifier hs-type">a</span></a></span></span><span>
</span><span id="line-189"></span><span id="parseString"><span class="annot"><span class="annottext">parseString :: forall a.
(ByteString -&gt; ParseResult a)
-&gt; Verbosity -&gt; String -&gt; ByteString -&gt; IO a
</span><a href="Distribution.Fields.ParseResult.html#parseString"><span class="hs-identifier hs-var hs-var">parseString</span></a></span></span><span> </span><span id="local-6989586621679696217"><span class="annot"><span class="annottext">ByteString -&gt; ParseResult a
</span><a href="#local-6989586621679696217"><span class="hs-identifier hs-var">parser</span></a></span></span><span> </span><span id="local-6989586621679696216"><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696216"><span class="hs-identifier hs-var">verbosity</span></a></span></span><span> </span><span id="local-6989586621679696215"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696215"><span class="hs-identifier hs-var">name</span></a></span></span><span> </span><span id="local-6989586621679696214"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679696214"><span class="hs-identifier hs-var">bs</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-190"></span><span>    </span><span class="hs-keyword">let</span><span> </span><span class="hs-special">(</span><span id="local-6989586621679696213"><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696213"><span class="hs-identifier hs-var">warnings</span></a></span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679696212"><span class="annot"><span class="annottext">Either (Maybe Version, NonEmpty PError) a
</span><a href="#local-6989586621679696212"><span class="hs-identifier hs-var">result</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ParseResult a
-&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) a)
forall a.
ParseResult a
-&gt; ([PWarning], Either (Maybe Version, NonEmpty PError) a)
</span><a href="Distribution.Fields.ParseResult.html#runParseResult"><span class="hs-identifier hs-var">runParseResult</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ByteString -&gt; ParseResult a
</span><a href="#local-6989586621679696217"><span class="hs-identifier hs-var">parser</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621679696214"><span class="hs-identifier hs-var">bs</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-191"></span><span>    </span><span class="annot"><span class="annottext">(PWarning -&gt; IO ()) -&gt; [PWarning] -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
(a -&gt; f b) -&gt; t a -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#traverse_"><span class="hs-identifier hs-var">traverse_</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; String -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696216"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; IO ()) -&gt; (PWarning -&gt; String) -&gt; PWarning -&gt; IO ()
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; PWarning -&gt; String
</span><a href="Distribution.Parsec.Warning.html#showPWarning"><span class="hs-identifier hs-var">showPWarning</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696215"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">[PWarning]
</span><a href="#local-6989586621679696213"><span class="hs-identifier hs-var">warnings</span></a></span><span>
</span><span id="line-192"></span><span>    </span><span class="hs-keyword">case</span><span> </span><span class="annot"><span class="annottext">Either (Maybe Version, NonEmpty PError) a
</span><a href="#local-6989586621679696212"><span class="hs-identifier hs-var">result</span></a></span><span> </span><span class="hs-keyword">of</span><span>
</span><span id="line-193"></span><span>        </span><span class="annot"><a href="../../base/src/Data.Either.html#Right"><span class="hs-identifier hs-type">Right</span></a></span><span> </span><span id="local-6989586621679696209"><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696209"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="annottext">a -&gt; IO a
forall (m :: * -&gt; *) a. Monad m =&gt; a -&gt; m a
</span><a href="../../base/src/GHC.Base.html#return"><span class="hs-identifier hs-var">return</span></a></span><span> </span><span class="annot"><span class="annottext">a
</span><a href="#local-6989586621679696209"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-194"></span><span>        </span><span class="annot"><a href="../../base/src/Data.Either.html#Left"><span class="hs-identifier hs-type">Left</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Maybe Version
</span><span class="hs-identifier">_</span></span><span class="hs-special">,</span><span> </span><span id="local-6989586621679696208"><span class="annot"><span class="annottext">NonEmpty PError
</span><a href="#local-6989586621679696208"><span class="hs-identifier hs-var">errors</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="hs-keyword">do</span><span>
</span><span id="line-195"></span><span>            </span><span class="annot"><span class="annottext">(PError -&gt; IO ()) -&gt; NonEmpty PError -&gt; IO ()
forall (t :: * -&gt; *) (f :: * -&gt; *) a b.
(Foldable t, Applicative f) =&gt;
(a -&gt; f b) -&gt; t a -&gt; f ()
</span><a href="../../base/src/Data.Foldable.html#traverse_"><span class="hs-identifier hs-var">traverse_</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Verbosity -&gt; String -&gt; IO ()
</span><a href="Distribution.Simple.Utils.html#warn"><span class="hs-identifier hs-var">warn</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696216"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; IO ()) -&gt; (PError -&gt; String) -&gt; PError -&gt; IO ()
forall b c a. (b -&gt; c) -&gt; (a -&gt; b) -&gt; a -&gt; c
</span><a href="../../base/src/GHC.Base.html#."><span class="hs-operator hs-var">.</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; PError -&gt; String
</span><a href="Distribution.Parsec.Error.html#showPError"><span class="hs-identifier hs-var">showPError</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696215"><span class="hs-identifier hs-var">name</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">NonEmpty PError
</span><a href="#local-6989586621679696208"><span class="hs-identifier hs-var">errors</span></a></span><span>
</span><span id="line-196"></span><span>            </span><span class="annot"><span class="annottext">Verbosity -&gt; String -&gt; IO a
forall a. Verbosity -&gt; String -&gt; IO a
</span><a href="Distribution.Simple.Utils.html#die%27"><span class="hs-identifier hs-var">die'</span></a></span><span> </span><span class="annot"><span class="annottext">Verbosity
</span><a href="#local-6989586621679696216"><span class="hs-identifier hs-var">verbosity</span></a></span><span> </span><span class="annot"><span class="annottext">(String -&gt; IO a) -&gt; String -&gt; IO a
forall a b. (a -&gt; b) -&gt; a -&gt; b
</span><a href="../../base/src/GHC.Base.html#%24"><span class="hs-operator hs-var">$</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Failed parsing \&quot;&quot;</span></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621679696215"><span class="hs-identifier hs-var">name</span></a></span><span> </span><span class="annot"><span class="annottext">String -&gt; String -&gt; String
forall a. [a] -&gt; [a] -&gt; [a]
</span><a href="../../base/src/GHC.Base.html#%2B%2B"><span class="hs-operator hs-var">++</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;\&quot;.&quot;</span></span><span>
</span><span id="line-197"></span></pre></body></html>